home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / tcrat2.com / TCRAT2.DEF < prev    next >
Encoding:
Text File  |  1989-01-10  |  7.3 KB  |  287 lines
  1. ;TC Rat 2.0 Definition File
  2. ;Copyright (c) 1988
  3. ;by J. A. Smart
  4.  
  5. ;Revised 12-22-88
  6.  
  7. ;Define mouse buttons, movement and sensitivity
  8. Begin lb,rb,bb,LEFT,RIGHT,UP,DOWN,35,55
  9.  
  10. ;Match screen outputs for context sensitivity
  11. lb:           MATCH 14,27,, "Borland",mAUTOEXEC1,matlb2
  12. matlb2:       MATCH 2,3,, "┌",ENT,matlb3
  13. matlb3:       MATCH 2,17,, "┌",ENT,matlb4
  14. matlb4:       MATCH 2,23,, "┌",ENT,matlb5
  15. matlb5:       MATCH 2,33,, "┌",ENT,matlb6
  16. matlb6:       MATCH 2,43,, "┌",ENT,matlb7
  17. matlb7:       MATCH 2,45,, "┌",ENT,matlb8
  18. matlb8:       MATCH 2,50,, "┌",ENT,matlb9
  19. matlb9:       MATCH 1,4,15, "F",ENT,matlb10
  20. matlb10:      MATCH 1,11,15, "E",ENT,matlb11
  21. matlb11:      MATCH 1,18,15, "R",ENT,matlb12
  22. matlb12:      MATCH 1,24,15, "C",ENT,matlb13
  23. matlb13:      MATCH 1,34,15, "P",ENT,matlb14
  24. matlb14:      MATCH 1,44,15, "O",ENT,matlb15
  25. matlb15:      MATCH 1,54,15, "D",ENT,matlb16
  26. matlb16:      MATCH 1,62,15, "B",ENT,matlb17
  27. matlb17:      MATCH 2,1,, "Option",mOPTIONS,matlb18
  28. matlb18:      MATCH 2,1,, "Replace",mREPLACE,F10
  29.  
  30.  
  31. rb:           MATCH 14,27,, "Borland",mAUTOEXEC2,matrb2
  32. matrb2:       MATCH 2,3,, "┌",ENT,matrb3
  33. matrb3:       MATCH 2,17,, "┌",ENT,matrb4
  34. matrb4:       MATCH 2,23,, "┌",ENT,matrb5
  35. matrb5:       MATCH 2,33,, "┌",ENT,matrb6
  36. matrb6:       MATCH 2,43,, "┌",ENT,matrb7
  37. matrb7:       MATCH 2,45,, "┌",ENT,matrb8
  38. matrb8:       MATCH 2,50,, "┌",ENT,matrb9
  39. matrb9:       MATCH 1,4,15, "F",ENT,matrb10
  40. matrb10:      MATCH 1,11,15, "E",ENT,matrb11
  41. matrb11:      MATCH 1,18,15, "R",ENT,matrb12
  42. matrb12:      MATCH 1,24,15, "C",ENT,matrb13
  43. matrb13:      MATCH 1,34,15, "P",ENT,matrb14
  44. matrb14:      MATCH 1,44,15, "O",ENT,matrb15
  45. matrb15:      MATCH 1,54,15, "D",ENT,matrb16
  46. matrb16:      MATCH 1,62,15, "B",ENT,matrb17
  47. matrb17:      MATCH 2,1,, "Option",mOPTIONS,matrb18
  48. matrb18:      MATCH 2,1,, "Replace",mREPLACE,mEDITMENU
  49.  
  50. bb:           EXECUTE ESCAPE
  51.  
  52. ;Key defined
  53. ENT:        TYPE 013
  54. ESCAPE:     TYPE 027
  55. UP:         TYPE 0,72
  56. DOWN:       TYPE 0,80
  57. RIGHT:      TYPE 0,77
  58. LEFT:       TYPE 0,75
  59. CANCEL:     NOTHING
  60.  
  61. mAUTOEXEC1:  EXECUTE ESCAPE,F5,F,L,ENT
  62. mAUTOEXEC2:  EXECUTE ESCAPE,F,L,ENT
  63.  
  64. mEDITMENU:  POPUP,1,1,116,NORMAL
  65. TEXT "   Block   Search & Replace   Miscellaneous    «««  Turbo C 2.0 Mouse  »»»      "
  66. SELECT   1,4,5,mBLOCK
  67. SELECT   1,12,16,mSEARCH
  68. SELECT   1,31,13,mMISC
  69. PEND
  70.  
  71. mBLOCK:     POPUP,2,1,113,NORMAL
  72. TEXT "╔═══════════════════╗"
  73. TEXT "║   Block Function  ║"
  74. TEXT "╚╤═════════════════╤╝"
  75. TEXT " │Begin Block      │ "
  76. TEXT " │End Block        │ "
  77. TEXT " │Mark Single Word │ "
  78. TEXT " │Print Block      │ "
  79. TEXT " │Copy Block       │ "
  80. TEXT " │Delete Block     │ "
  81. TEXT " │Hide/Display     │ "
  82. TEXT " │Move Block       │ "
  83. TEXT " │Read from Disk   │ "
  84. TEXT " │Write to Disk    │ "
  85. TEXT " │     Cancel      │ "
  86. TEXT " └─────────────────┘ "
  87. SELECT    4,3,17,mBegBlo
  88. SELECT    5,3,17,mEndBlo
  89. SELECT    6,3,17,mMarSin
  90. SELECT    7,3,17,mPriBlo
  91. SELECT    8,3,17,mCopBlo
  92. SELECT    9,3,17,mDelBlo
  93. SELECT    10,3,17,mHidDis
  94. SELECT    11,3,17,mMovBlo
  95. SELECT    12,3,17,mReaDis
  96. SELECT    13,3,17,mWriDis
  97. SELECT    14,3,17,Cancel
  98. PEND
  99.  
  100. ;Blocks & Markers executes defined
  101. mBegBlo:       EXECUTE CtrlK,B
  102. mEndBlo:       EXECUTE CtrlK,K
  103. mMarSin:       EXECUTE CtrlK,T
  104. mPriBlo:       EXECUTE CtrlK,P
  105. mCopBlo:       EXECUTE CtrlK,C,mEndBlo
  106. mDelBlo:       EXECUTE CtrlK,Y
  107. mHidDis:       EXECUTE CtrlK,H
  108. mMovBlo:       EXECUTE CtrlK,V,mEndBlo
  109. mReaDis:       EXECUTE CtrlK,R
  110. mWriDis:       EXECUTE CtrlK,W
  111.  
  112. mSEARCH:    POPUP,2,12,113,NORMAL
  113. TEXT "╔═════════════════╗"
  114. TEXT "║  Find/Replace   ║"
  115. TEXT "╚╤═══════════════╤╝"
  116. TEXT " │Find Pattern   │ "
  117. TEXT " │Find & Replace │ "
  118. TEXT " │Repeat Find    │ "
  119. TEXT " │    Cancel     │ "
  120. TEXT " └───────────────┘ "
  121. SELECT    4,3,15,mFinPat
  122. SELECT    5,3,15,mFinRep
  123. SELECT    6,3,15,mRepFin
  124. SELECT    7,3,15,Cancel
  125. PEND
  126.  
  127. mOPTIONS:  POPUP,1,52,9,NORMAL
  128. Text "╒══════════════════╕"
  129. Text "│  Search Options  │"
  130. Text "╞══════════════════╡"
  131. Text "│ (U)ppercase      │"
  132. Text "│ (B)ackward       │"
  133. Text "│ (W)hole Words    │"
  134. Text "│ (G)lobal Search  │"
  135. Text "│ (L)ocal to Block │"
  136. Text "│ (N)o Prompting   │"
  137. Text "│ Enter <CR>       │"
  138. Text "│      CANCEL      │"
  139. Text "└──────────────────┘"
  140. Select  4,3,16,U
  141. Select  5,3,16,B
  142. Select  6,3,16,W
  143. Select  7,3,16,G
  144. Select  8,3,16,L
  145. Select  9,3,16,N
  146. Select  10,3,16,ENT
  147. Select  11,3,16,Cancel
  148. PEND
  149.  
  150. ;Execute Find choices
  151. mFinPat:       EXECUTE CtrlQ,F
  152. mFinRep:       EXECUTE CtrlQ,A
  153. mRepFin:       EXECUTE CtrlL
  154.  
  155. ;Replace prompting
  156. mREPLACE:  POPUP,2,17,011,normal
  157. TEXT " Yes  No "
  158. SELECT    1,2,3,Yes
  159. SELECT    1,7,2,No
  160. PEND
  161.  
  162. mMISC:     popup,2,33,113,normal
  163. TEXT "╔═══════════════════╗"
  164. TEXT "║   Miscellaneous   ║"
  165. TEXT "╚╤═════════════════╤╝"
  166. TEXT " │Abort Operation  │ "
  167. TEXT " │Autoindent       │ "
  168. TEXT " │Ctrl Char Prefix │ "
  169. TEXT " │Exit, No Save    │ "
  170. TEXT " │Find Place Mark  │ "
  171. TEXT " │Go To Error      │ "
  172. TEXT " │Ins Comp Directv │ "
  173. TEXT " │Language Help    │ "
  174. TEXT " │Optimal Fill     │ "
  175. TEXT " │Pair Braces Frwd │ "
  176. TEXT " │Pair Braces Bkwd │ "
  177. TEXT " │Repeat Last Find │ "
  178. TEXT " │Restore Line     │ "
  179. TEXT " │Save & Remain    │ "
  180. TEXT " │Tab Mode         │ "
  181. TEXT " │Unindent Toggle  │ "
  182. TEXT " │     CANCEL      │ "
  183. TEXT " └─────────────────┘ "
  184. SELECT    4,3,17,mAboOpe
  185. SELECT    5,3,17,mAutInd
  186. SELECT    6,3,17,mCtrCha
  187. SELECT    7,3,17,mExiNoS
  188. SELECT    8,3,17,mFinPla
  189. SELECT    9,3,17,mGoToEr
  190. SELECT    10,3,17,mInsCom
  191. SELECT    11,3,17,mLanHel
  192. SELECT    12,3,17,mOptFil
  193. SELECT    13,3,17,mPaiFrw
  194. SELECT    14,3,17,mPaiBkw
  195. SELECT    15,3,17,mRepLas
  196. SELECT    16,3,17,mResLin
  197. SELECT    17,3,17,mSavRem
  198. SELECT    18,3,17,mTabMod
  199. SELECT    19,3,17,mUniTog
  200. SELECT    20,3,17,CANCEL
  201. PEND
  202.  
  203. mAboOpe:     EXECUTE CtrlU
  204. mAutInd:     EXECUTE CtrlO,I
  205. mCtrCha:     EXECUTE CtrlP
  206. mExiNoS:     EXECUTE CtrlK,D
  207. mFinPla:     EXECUTE CtrlQ
  208. mGoToEr:     EXECUTE CtrlQ,W
  209. mInsCom:     EXECUTE CtrlO,O
  210. mLanHel:     EXECUTE CtrlF1
  211. mOptFil:     EXECUTE CtrlO,F
  212. mPaiFrw:     EXECUTE CtrlQ,TYPE[
  213. mPaiBkw:     EXECUTE CtrlQ,TYPE]
  214. mRepLas:     EXECUTE CtrlL
  215. mResLin:     EXECUTE CtrlQ,L
  216. mSavRem:     EXECUTE F2
  217. mTabMod:     EXECUTE CtrlO,T
  218. mUniTog:     EXECUTE CtrlO,U
  219.  
  220. ;Control keys defined
  221. CtrlA:   TYPE 01
  222. CtrlB:   TYPE 02
  223. CtrlC:   TYPE 03
  224. CtrlD:   TYPE 04
  225. CtrlE:   TYPE 05
  226. CtrlF:   TYPE 06
  227. CtrlG:   TYPE 07
  228. CtrlH:   TYPE 08
  229. CtrlI:   TYPE 09
  230. CtrlJ:   TYPE 10
  231. CtrlK:   TYPE 11
  232. CtrlL:   TYPE 12
  233. CtrlM:   TYPE 13
  234. CtrlN:   TYPE 14
  235. CtrlO:   TYPE 15
  236. CtrlP:   TYPE 16
  237. CtrlQ:   TYPE 17
  238. CtrlR:   TYPE 18
  239. CtrlS:   TYPE 19
  240. CtrlT:   TYPE 20
  241. CtrlU:   TYPE 21
  242. CtrlV:   TYPE 22
  243. CtrlW:   TYPE 23
  244. CtrlX:   TYPE 24
  245. CtrlY:   TYPE 25
  246. CtrlZ:   TYPE 26
  247. CtrlDel: TYPE 0,157
  248. CtrlF1:  TYPE 0,94
  249.  
  250. F1:      TYPE 0,59
  251. F2:      TYPE 0,60
  252. F3:      TYPE 0,61
  253. F5:      TYPE 0,63
  254. F10:     TYPE 0,68
  255. Yes:     TYPE "Y"
  256. No:      TYPE "N"
  257. A:       TYPE "A"
  258. B:       TYPE "B"
  259. C:       TYPE "C"
  260. D:       TYPE "D"
  261. E:       TYPE "E"
  262. F:       TYPE "F"
  263. G:       TYPE "G"
  264. H:       TYPE "H"
  265. I:       TYPE "I"
  266. J:       TYPE "J"
  267. K:       TYPE "K"
  268. L:       TYPE "L"
  269. M:       TYPE "M"
  270. N:       TYPE "N"
  271. O:       TYPE "O"
  272. P:       TYPE "P"
  273. Q:       TYPE "Q"
  274. R:       TYPE "R"
  275. S:       TYPE "S"
  276. T:       TYPE "T"
  277. U:       TYPE "U"
  278. V:       TYPE "V"
  279. W:       TYPE "W"
  280. X:       TYPE "X"
  281. Y:       TYPE "Y"
  282. Z:       TYPE "Z"
  283.  
  284. TYPE[:   TYPE "["
  285. TYPE]:   TYPE "]"
  286.  
  287. ;<< EOF >>